home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.11 Nov 87 / C string library / PStrLib Source / PStrFindLS.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-10-21  |  417 b   |  20 lines  |  [TEXT/KAHL]
  1. /*    FILE:    PStrFindLS.c
  2.     Finds last occurance in both s and set. */
  3. #include    "PStrLib.h"
  4.  
  5. PStrFindLS(s, set)
  6. unsigned char    *s, *set;    /* Pascal strings */
  7. {    
  8.     register    int                i = *s, n;
  9.     register    unsigned char    *setp, *sp = s + i;
  10.  
  11.     while (--i >= 0) {
  12.         setp = set;
  13.         n = *setp;
  14.         while (--n >= 0 && *++setp != *sp);
  15.         if (n >= 0) return(sp - s);
  16.         --sp;
  17.     }
  18.     return(0);
  19. }    /* Result: 0 if Not Found, else char position */
  20.